1 REM BEFORE LOADING THIS PROGRAM YOU MUST POKE44,64:POKE16384,0:NEW
20 B=8192 :POKE53272,24
25 POKE 53265,PEEK(53265) OR 32
30 FOR I=0 TO 7999 : POKE B+I,0 : NEXT
40 FOR J=1024 TO 2043 :POKEJ,1:NEXT
100 FOR X = 0 TO 319 STEP .4
105 Y=INT(100-(100*COS(X/05))*EXP(-X/240))
150 CHAR=INT(X/8)
155 ROW=INT(Y/8)
160 LINE=Y AND 7
165 BYTE = B + ROW*320 + CHAR*8 + LINE
170 BIT=7-(X AND 7)
175 POKE BYTE,PEEK (BYTE) OR (2^BIT)
180 NEXT X
190 GET A$: IF A$<>CHR$(133) THEN 190
205 OPEN4,4,5:CMD4:PRINT CHR$(10) CHR$(10)
210 PRINT CHR$(27)"@":PRINT CHR$(27) CHR$(51) CHR$(16)
215 PRINT"          ";
220 PRINT"------------------------------------------------------"CHR$(10)
225 FORL=0 TO 24:PRINT CHR$(27) CHR$(76) CHR$(249) CHR$(2);
230 FOR I=1 TO 119:PRINT CHR$(0);:NEXTI:PRINT CHR$(245);
235 FOR CR = 0 TO 39:
240 FOR P  = 0 TO 7:PBYT=0:E=2^(7-P)
245 FOR LC = 0 TO 7
250 PBYT = PBYT-((PEEK(B+LC) AND E)>0)*2^(7-LC)
255 NEXT LC: PRINT CHR$(PBYT) CHR$(PBYT);
260 NEXT P : B=B+8
265 NEXT CR: PRINT CHR$(245) CHR$(10);
270 NEXT L:PRINT CHR$(27)"@"
275 PRINT"          ";
280 PRINT"------------------------------------------------------"
285 PRINT#4,:CLOSE4
290 END